home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Grafik / Misc / ImageEnginer / ARexx / Rotate.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-04-08  |  1.6 KB  |  102 lines
  1. /*
  2.  
  3.    v1.00 Rotate
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. signal on error            /* Setup a place for errors to go */
  15.  
  16.  
  17. if arg()=0 then exit
  18. x=arg(1)
  19. parse var x pic rot .
  20.  
  21.  
  22. if rot="" then do
  23.  
  24.   if exists("ie:prefs/verotate.cfg") == "1" then
  25.     do
  26.       call open("temp","ie:prefs/verotate.cfg","R")
  27.       values=readln("temp")
  28.       parse var values ok rot .
  29.       call close("temp")
  30.     end
  31.   else
  32.     do
  33.       rot=20
  34.     end
  35.  
  36.   'FORM "Rotate" "Use|Cancel"',
  37.   'INTEGER,"Rotate value",1,360,'rot',SLIDER'
  38.  
  39.   values=result
  40.   parse var values ok rot .
  41.  
  42.   if ok = 0 then exit
  43.  
  44.   call open("temp","ie:prefs/verotate.cfg","W")
  45.   res=writeln("temp",values)
  46.   call close("temp")
  47.  
  48. end
  49.  
  50.  
  51.  
  52. MARK pic PRIMARY
  53. PROJECT_INFO pic ZOOM
  54. origzoomval=result
  55.  
  56. ROTATE pic rot BEST
  57. rotpic=result
  58.  
  59. BRIGHTNESS pic 255
  60. bright=result
  61.  
  62. ROTATE bright rot BEST
  63. brightrot=result
  64.  
  65. CLOSE bright
  66.  
  67. NEGATIVE brightrot
  68. negrot=result
  69.  
  70. CLOSE brightrot
  71.  
  72. MARK negrot PRIMARY
  73. MARK rotpic SECONDARY
  74.  
  75. COMPOSITE 0 0 ADD
  76. final=result
  77.  
  78. CLOSE negrot
  79. CLOSE rotpic
  80.  
  81.  
  82.  
  83. exit
  84.  
  85. /*******************************************************************/
  86. /* This is where control goes when an error code is returned by IE */
  87. /* It puts up a message saying what happened and on which line     */
  88. /*******************************************************************/
  89. error:
  90. if RC=5 then do            /* Did the user just cancel us? */
  91.     IE_TO_FRONT
  92.     LAST_ERROR
  93.     'REQUEST "'||RESULT||'"'
  94.     exit
  95. end
  96. else do
  97.     IE_TO_FRONT
  98.     LAST_ERROR
  99.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  100.     exit
  101. end
  102.